主题：动态设置遍历

如何能夠做到动态设置遍历?

 

此主题相关图片如下：qq图片20131009010247.jpg

如图

在 [系统库]表的  "客戶"列,可以隨时加入客戶代号

然后写好代码

做到动态遍历客戶代号

 

但我这样弄,好像不行

 

    '----获取客户
    Dim dtn As String '集合客户
    Dim dtr As String '集合行数
    Dim dtb As Table = Tables("达成率")
    For Each dr2 As DataRow In DataTables("达成率").Select("[客户] <>'SR'" )
        If dtn Is Nothing Then
            dtn =  """ " & dr2("客户") & " """
            dtr = 1
        Else
            dtn = dtn + "," +  """ " & dr2("客户")  & " """
            dtr = dtr + 2
        End If
    Next
    'MessageBox.show(dtn)
    'MessageBox.show(dtr)

    Dim cost () As String = { dtn }

    For Each nm1 As String In cost
        If e.Row("模号").Contains(NM1) Then
            e.Row("客戶") = NM1
           
            Exit For
        Else
            e.Row("客戶") = Nothing
        End If
    Next

 

 

结果遍历沒反应

程老師

可不可以把

Dim dtn As String = DataTables("达成率").GetComboListString("客户","[客户] <>'SR'")
Dim Values() As String
Values = dtn.split("|")
写在全局变量去呢?

 

或者写在全局代码里行不?

 

 

因为有小甜甜和程老師,我等菜鸟才会成長的

因为沒交网费  停了网两天

太感谢程老師的提示启发

也多谢小甜甜的用心教导

不过小甜甜,你所教的似乎不行

沒反应

相反程老師所示的 运行无事

如果想做到  客户的字数指定为2位  要怎设呢?

GetComboListString("客户","[客户].text = 2 ")

不行

小甜甜,这样设成功了.

不过在测试时,有些问题

我整理后再发上來