以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  什么显示多值列Value =Intenet Explorer，Google Chorme 勾选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189669)
--  作者：qazlinle6
--  发布时间：2023/12/15 17:03:00
--  什么显示多值列Value =Intenet Explorer，Google Chorme 勾选
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  勾选
--  作者：有点蓝
--  发布时间：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
 ……
--  作者：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) \'默认勾选
            Next
        End With

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


像这个什么弄
--  作者：有点蓝
--  发布时间：2023/12/16 9:07:00
--  
就上面的用法，有什么问题？
--  作者：qazlinle6
--  发布时间：2023/12/17 11:04:00
--  
OK
[此贴子已经被作者于2023/12/17 11:15:56编辑过]
--  作者：qazlinle6
--  发布时间：2023/12/17 11:27:00
--  
  
[此贴子已经被作者于2023/12/17 11:51:53编辑过]