错误所在事件：窗口,会员维护,确定,Click
详细错误信息：
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。
确定，CLICK代码如下：
If DataTables("会员资料").HasChanges Then
Dim r As Row = Tables("会员资料").Current
If r Is Nothing Then
Return
End If
If r("会员卡号") = "" Or r("会员卡号") = "" Or r("联系电话") = "" Then
MessageBox.Show("红色字部份为必填!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Warning)
Return
Else
DataTables("会员资料").Save()
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 会员卡号,会员姓名 From {会员资料}"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
Dim tv As WinForm.TreeView
tv =Forms("会员资料设置").Controls("TreeView1")
tv.StopRedraw
tv.Nodes.Clear
tv.BuildTree(dt,"会员卡号","","会员卡号")
tv.Nodes.Insert("所有会员",0)
For Each nd As WinForm.TreeNode In tv.AllNodes
If nd.Text <> "所有会员" Then
nd.Text = nd.Text & "|" & nd.DataRow("会员姓名")
End If
Next
tv.ResumeRedraw
End If
End If
End If
e.form.Close
加好友 
发短信
Post By：2014/6/2 18:00:00 [只看该作者]
