此主题相关图片如下：qq图片20160617212751.jpg
Dim r As Row = Tables("采购入库").Current
If r Is Nothing Then
Return
End If
For Each c As Col In Tables("采购入库").Cols
Sele ct Ca se c.Name
Case "合同名称","合同编号","入库日期","供应商","供应商编号","入库批次"
If r.IsNull(c.Name) Then
MessageBox.Show("粉红框部分不可以为空!", "警告!", MessageBoxButtons.Ok, MessageBoxIcon.Warning)
Return
Else
Tables("采购入库").Current.Save()
If Forms("采购入库").Opened=True Then
Dim cmd As New SQLCom mand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Sele ct Distinct Year(入库日期) As 年, Month(入库日期) As 月,合同名称,供应商 From {采购入库}"
dt = cmd.ExecuteReader()
Dim tv As WinForm.TreeView = Forms("采购入库").Controls("TreeView1")
tv.StopRedraw
tv.Nodes.Clear
tv.BuildTree(dt,"合同名称|年|月|供应商","","合同名称 desc,年,月,月")
tv.Nodes.Insert("所有订单",0)
tv.ResumeRedraw
tv.Nodes(1).Expand()
End If
End If
End Sel ect
Next
e.Form.Close
改成这样又不出错了。为什么
此主题相关图片如下：111.jpg
[此贴子已经被作者于2016/6/19 18:01:12编辑过]
加好友 
发短信
Post By：2016/6/17 21:29:00 [只看该作者]
