Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮忙 ，谢谢。


  共有1562人关注过本帖树形打印复制链接

主题：请帮忙 ，谢谢。
帅哥哟，离线，有人找我吗？
jncoser
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：615 威望：0 精华：0 注册：2015/11/16 0:17:00 		请帮忙 ，谢谢。  发帖心情 Post By：2017/3/15 20:10:00 [显示全部帖子]

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多次。。。实在绕不出来了。。。   求帮助！谢谢。  
next
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
End If
Next

[此贴子已经被作者于2017/3/15 20:10:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jncoser
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：615 威望：0 精华：0 注册：2015/11/16 0:17:00 		  发帖心情 Post By：2017/3/15 20:45:00 [显示全部帖子]

做了一个窗口。。。这个咋传。 
大概意思是。。。。
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
next
Dim dr As DataRow =  DataTables("设置").Find(“品名='" & pms(i) & "' And 起运地='" & qyds(ii) & "' And 运达地='" & ydds(iii) & "'", "起始日期 Desc")

判断 这八行 有没有记录。
 当然代码是错的。读书少。这叫维组？

帮忙看看，不行我把文件传上来。
 
[此贴子已经被作者于2017/3/15 20:45:40编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询