- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求解答：从字符串“”到类型“Double”的转换无效。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51746)
-- 发布时间：2014/6/2 18:00:00
-- 求解答：从字符串“”到类型“Double”的转换无效。
错误所在事件：窗口,会员维护,确定,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
-- 发布时间：2014/6/2 18:09:00
--
看看"会员卡号"、"会员卡号"、"联系电话"三列的类型是否存在数值型？
-- 发布时间：2014/6/3 15:00:00
--
这段代码改成这样试试
If r.Isnull("会员卡号") Or r.Isnull("会员卡号") Or r.Isnull("联系电话") Then
-- 发布时间：2016/11/7 23:14:00
-- dsfdsfds
dfdfdsfds