共6 条记录, 每页显示 10 条, 页签: [1]

标题：什么显示多值列Value =Intenet Explorer，Google Chorme 勾选

1楼

qazlinle6 发表于：2023/12/15 17:03:00

With wb.AddCheckGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer", True) '默认勾选
            .Add("bw2","Google Chorme")
            .Add("bm3","FireFox")
.Add("bm4","Safari").Enabled = False '此项不可选
        End With

什么显示多值列Value =Intenet Explorer，Google Chorme 勾选

2楼

有点蓝 发表于：2023/12/15 17:19:00

dim ss() as string = "Intenet Explorer,Google Chorme".split(,)

With wb.AddCheckGroup("form1","rdg1","浏览器")

if array.indexof(ss,"Intenet Explorer") > -1

.Add("bw1","Intenet Explorer", True)

else

.Add("bw1","Intenet Explorer",)

end if

if array.indexof(ss,"Google Chorme") > -1

.Add("bw1","Google Chorme", True)

else

.Add("bw1","Google Chorme",)

end if

……

3楼

qazlinle6 发表于：2023/12/15 17:33:00

Dim cmd As New SQLCommand

cmd.C

Dim dt As DataTable

Dim cmb As WinForm.ComboBox

cmd.CommandText = "SEL1ECT DISTINCT 对账品名 From {标签明细} where 库存店名='周六福(1)' And 库存备注='柜台货' "

dt = cmd.ExecuteReader()

Dim str1() As String = dt.GetComboListString("对账品名").split("|")

With wb.AddCheckGroup("", "rdg2", "店名筛选")

For i1 As Integer = 0 To str1.length - 1

.Add("bws_" & str1(i1), str1(i1), True) '默认勾选

End With

Dim dr2 As DataRow = DataTables("税务局查账显示").sqlFind("企业名称 = '" & dr1("企业名称") & "'")

Value =dr2("对账品名")

像这个什么弄

4楼

有点蓝 发表于：2023/12/16 9:07:00

就上面的用法，有什么问题？

5楼

qazlinle6 发表于：2023/12/17 11:04:00

[此贴子已经被作者于2023/12/17 11:15:56编辑过]

6楼

qazlinle6 发表于：2023/12/17 11:27:00

[此贴子已经被作者于2023/12/17 11:51:53编辑过]

共6 条记录, 每页显示 10 条, 页签: [1]