- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- .NET Framework 版本：2.0.50727.8800 Foxtable 版本：2018.10.9.1 错误所在事件：窗口,患者建档,Button1,Click 详细错误信息： 无法在 System.Int32 和 System.String 上执行“=”操作。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132134)
-- 发布时间：2019/3/14 16:45:00
-- .NET Framework 版本：2.0.50727.8800 Foxtable 版本：2018.10.9.1 错误所在事件：窗口,患者建档,Button1,Click 详细错误信息： 无法在 System.Int32 和 System.String 上执行“=”操作。
总是提醒“.NET Framework 版本：2.0.50727.8800 Foxtable 版本：2018.10.9.1 错误所在事件：窗口,患者建档,Button1,Click 详细错误信息： 无法在 System.Int32 和 System.String 上执行“=”操作。”
找不到错误所在，求救
此主题相关图片如下：微信截图_20190314164253.png
此主题相关图片如下：微信截图_20190314164253.pngDim xm As String = e.Form.Controls("xm").Value
Dim xb As String = e.Form.Controls("xb").Value
Dim nl As String = e.Form.Controls("nl").Value
Dim zyh As String = e.Form.Controls("zyh").Value
Dim dsa As String = e.Form.Controls("dsa").Value
Dim bq As String = e.Form.Controls("bq").Value
Dim ch As String = e.Form.Controls("ch").Value
Dim ssfl As String = e.Form.Controls("ssfl").Value
Dim gmlczd As String = e.Form.Controls("gmlczd").Value
Dim nxglczd As String = e.Form.Controls("nxglczd").Value
Dim wzlczd As String = e.Form.Controls("wzlczd").Value
Dim gmsslx As String = e.Form.Controls("gmsslx").Value
Dim nxgsslx As String = e.Form.Controls("nxgsslx").Value
Dim wzsslx As String = e.Form.Controls("wzsslx").Value
Dim jdsj As WinForm.DateTimePicker
jdsj = e.Form.Controls("jdsj")
Dim rdo1 As WinForm.RadioButton
Dim rdo2 As WinForm.RadioButton
rdo1 = e.Form.Controls("rdo1")
rdo2 = e.Form.Controls("rdo2")
Dim dr As DataRow
dr = DataTables("ssxx").Find("[zyh] = \'" & zyh & "\' ")
If dr Is Nothing Then
dr = DataTables("ssxx").AddNew()
If xm = "" Then
MessageBox.Show("姓名为空")
ElseIf xb = "" Then
MessageBox.Show("性别为空")
ElseIf nl = "" Then
MessageBox.Show("年龄为空")
ElseIf zyh = "" Then
MessageBox.Show("住院号为空")
ElseIf dsa = "" Then
MessageBox.Show("DSA号为空")
ElseIf bq = "" Then
MessageBox.Show("病区为空")
ElseIf ch = "" Then
MessageBox.Show("床号为空")
ElseIf ssfl = "冠脉介入" Then
If gmlczd = "" Then
MessageBox.Show("心内科临床诊断为空")
End If
ElseIf ssfl = "脑血管介入" Then
If nxglczd = "" Then
MessageBox.Show("脑血管临床诊断为空")
End If
ElseIf ssfl = "外周介入" Then
If wzlczd = "" Then
MessageBox.Show("外周血管临床诊断为空")
End If
ElseIf ssfl = "冠脉介入" Then
If gmsslx = "" Then
MessageBox.Show("冠脉手术类型为空")
End If
ElseIf ssfl = "脑血管介入" Then
If nxgsslx = "" Then
MessageBox.Show("脑血管手术类型为空")
End If
ElseIf ssfl = "外周介入" Then
If wzsslx = "" Then
MessageBox.Show("外周血管手术类型为空")
End If
ElseIf jdsj.Value Is Nothing Then
MessageBox.Show("建档时间为空")
Else
dr("Name") = xm
dr("sex") = xb
dr("Age") = nl
dr("zyh") = zyh
dr("DSA") = dsa
dr("bq") = bq
dr("Bed") = ch
If ssfl = "冠脉介入" Then
dr("gmlczd") = gmlczd
End If
If ssfl = "脑血管介入" Then
dr("nxglczd") = nxglczd
End If
If ssfl = "外周介入" Then
dr("wzlczd") = wzlczd
End If
If ssfl = "冠脉介入" Then
dr("gmsslx") = gmsslx
End If
If ssfl = "脑血管介入" Then
dr("nxgsslx") = nxgsslx
End If
If ssfl = "外周介入" Then
dr("wzsslx") = wzsslx
End If
If rdo1.Checked = True Then
dr("sfjz") = True
Else
dr("sfjz") = False
End If
dr("sssj") = jdsj.Value
DataTables.Save()
End If
Else
Dim Result As DialogResult
Result = MessageBox.Show("住院号存在?", "确认提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
End If
-- 发布时间：2019/3/14 16:58:00
--
知道答案了
-- 发布时间：2019/3/14 17:25:00
--
dr = DataTables("ssxx").Find("[zyh] = \'" & zyh & "\' ")
改成
dr = DataTables("ssxx").Find("[zyh] = " & val(zyh) & " ")