LISTBOX 3列选中某行，数据怎样分别显示对应的单元格里

rendiule01 · 发表于 2023-3-6 12:35

rendiule01 · 发表于 2023-3-6 13:17

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) '双击事件
ActiveCell.Value = ListBox1.Value
Dim X As Long, j As Integer
X = ActiveCell.Row()
'--------------------------------------------------
j = ListBox1.ListIndex
Range("C" & X) = Me.ListBox1.List(j, 2)
Range("E" & X) = Me.ListBox1.List(j, 1)
Range("F" & X) = Me.ListBox1.List(j, 0)

'--------------------------------------------------
Me.ListBox1.Clear
Me.TextBox1 = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False

End Sub

zpy2 · 发表于 2023-3-6 15:03

sSq1 = "Select product_code,client_produ
ct_code,out_product_name from [scm_product_list] WHERE client_product_code='" & Range("A
" & X) & "'" 'SQL 语句查询结果 Cells(x, 1)

对照关系修改一下看看
sSq1 = "Select product_code,out_product_name,client_produ
ct_code from [scm_product_list] WHERE client_product_code='" & Range("A
" & X) & "'" 'SQL 语句查询结果 Cells(x, 1)

代码太长看起来有点费劲
TextBox1_KeyUp(ByVal

每按一下键盘链接数据库。。。。
不知道会不会卡

bqwd36 · 发表于 2023-3-6 16:46

瞎做了一个，反正就是点击按钮，打开列表框然后双击更新E25,F25和G25数据

rendiule01 · 发表于 2023-3-8 14:29

bqwd36 发表于 2023-3-6 16:46
瞎做了一个，反正就是点击按钮，打开列表框然后双击更新E25,F25和G25数据

怎样根据s文本框，输入数据按回车键后再模糊从 sheets("SQL")的数据查询符合条件的数据到加载到listbox里

文本框列表框代码库3.zip (62.87 KB, 下载次数: 3)

bqwd36 · 发表于 2023-3-9 09:26

好像是可以了，不过可能还会报错，还有就是控件里面有时候很多空格不知道为啥，你的SQL表里的空格太多被我删了用的

		自动登录	找回密码
密码			免费注册

[求助] LISTBOX 3列选中某行，数据怎样分别显示对应的单元格里

评分