请帮忙，谢谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim pms As String() = pm.Value.Split(",")

Dim qyds As String() = qyd.Value.Split(",")

Dim ydds As String() = ydd.Value.Split(",")

For s As Integer = 0 To pms.Length * qyds.Length * ydds.Length -1

这里，，，做了n多次。。。实在绕不出来了。。。求帮助！谢谢。

Dim dr As DataRow = DataTables("设置").Find("类别='" & lb.Value & "' And 品名='" & pms(i) & "' And 起运地='" & qyds(ii) & "' And 运达地='" & ydds(iii) & "'", "起始日期 Desc")

If dr IsNot Nothing Then

If qrq.Value < dr("起始日期") Then

MessageBox.Show("起始日期错误!" & vbcr & lb.Value & " " & pms(i) & " " & qyds(ii) & " " & ydds(iii) & vbcr & "设置的日期小于,该品名最近一条记录日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

Exit For

End If

[此贴子已经被作者于2017/3/15 20:10:18编辑过]

没看懂你什么意思，上传实例。

做了一个窗口。。。这个咋传。

大概意思是。。。。

Dim pms As String() = pm.Value.Split(",") 品名： a物 b物

Dim qyds As String() = qyd.Value.Split(",") 起运地: c点 d点

Dim ydds As String() = ydd.Value.Split(",") 运达地: e点 f点

表内容:

一行： a物由 c点运至 e点

pms(0) & qyds (0) & ydds (0)

二行： a物由 c点运至 f点

pms(0) & qyds (0) & ydds (1)

三行: a物由 d点运至 e点

pms(0) & qyds (1) & ydds (0)

四行: a物由 d点运至 e点

pms(0) & qyds (1) & ydds (1)

五行: b物由 c点运至 e点

pms(1) & qyds (0) & ydds (0)

六行：b物由 c点运至 f点

pms(1) & qyds (0) & ydds (1)

七行: b物由 d点运至 e点

pms(1) & qyds (1) & ydds (0)

八行: b物由 d点运至 e点

pms(1) & qyds (1) & ydds (1)

用代码遍历他们。

For s As Integer = 0 To pms.Length * qyds.Length * ydds.Length -1

If i1 >= qyds.Length * ydds.Length - 1 Then

If i >= qyds.Length * ydds.Length - 1 Then

i = 0

End If

i = i + 1

i1 = 0

End If

i1 = i1 + 1

If i2 >= qyds.Length - 1 Then

ii = ii + 1

i2 = 0

End If

If ii >= qyds.Length - 1 Then

ii = 0

End If

i2 = i2 + 1

If iii >= ydds.Length - 1 Then

iii = 0

Else

iii = iii + 1

End If

Dim dr As DataRow = DataTables("设置").Find(“品名='" & pms(i) & "' And 起运地='" & qyds(ii) & "' And 运达地='" & ydds(iii) & "'", "起始日期 Desc")

判断这八行有没有记录。

当然代码是错的。读书少。这叫维组？

帮忙看看，不行我把文件传上来。

[此贴子已经被作者于2017/3/15 20:45:40编辑过]

Dim pms As String() = pm.Value.Split(",")
Dim qyds As String() = qyd.Value.Split(",")
Dim ydds As String() = ydd.Value.Split(",")
For Each pm1 As String To pms
    For Each qyd1 As String In qyds
        For Each ydd1 As String In ydds
            output.show(pm1 & " " & qyd1 & " " & ydd1)
        Next
    Next
Next

主题：请帮忙 ，谢谢。

主题：请帮忙，谢谢。