Case "新增病例"
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptime
If sp.TotalSeconds <= 1 Then
Return '一秒内多次触发无效
Else
ptime = Date.now
End If
Dim t As DataRow = DataTables("登记总表").SQLFind("序号 = '" & DataTables("登记总表").SQLCompute("max(序号)") & "'")
If User.Group = "综合门诊" Then
If t Is Nothing Then
Tables("登记总表").AddNew.Save()
Else
If t.IsNull("病人姓名") = True Then
DataTables("登记总表").LoadFilter = "序号 = '" & DataTables("登记总表").SQLCompute("max(序号)") & "'"
DataTables("登记总表").Load()
MessageBox.Show("姓名不能为空,请完善后新增.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
ElseIf t.IsNull("性别") = True Then
DataTables("登记总表").LoadFilter = "序号 = '" & DataTables("登记总表").SQLCompute("max(序号)") & "'"
DataTables("登记总表").Load()
MessageBox.Show("性别不能为空,请完善后新增.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
ElseIf t.IsNull("年龄") = True Then
DataTables("登记总表").LoadFilter = "序号 = '" & DataTables("登记总表").SQLCompute("max(序号)") & "'"
DataTables("登记总表").Load()
MessageBox.Show("年龄不能为空,请完善后新增.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
ElseIf t.IsNull("联系电话") = True Then
DataTables("登记总表").LoadFilter = "序号 = '" & DataTables("登记总表").SQLCompute("max(序号)") & "'"
DataTables("登记总表").Load()
MessageBox.Show("联系电话不能为空,请完善后新增.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
Tables("登记总表").AddNew.Save()
End If
End If
Else
MessageBox.Show("您不是接种医生,无权新增病例.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
2、疫苗药品出库表,DataColChanging 根本就没有涉及到一些列,新增行时出现下面的错误提示: 有十列 出现都成了逻辑列了
Case "新增明细"
Dim d As Row = Tables("疫苗药品出库单").Current
If d IsNot Nothing Then
If d("打印次数") > 0 Then
MessageBox.Show("该出库单已经处理完毕,禁止新增明细!","警告提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If d("确认开单") = True Then
Dim crs As List(of DataRow) = d.DataRow.GetChildRows("疫苗药品出库表")
Dim n As Integer = crs.Count
If n >= 8 Then
PopMessage("出库明细已达到最多8行,请新增出库单后新增明细!","提示",PopIconEnum.Infomation,3)
Return
Else
For Each cr As DataRow In crs
If cr("确认开单") = False Then
MessageBox.Show("请勾选""确认开单""新增!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Next
End If
Else
PopMessage("请勾选""确认开单""后新增""","提示",PopIconEnum.Infomation,2)
Return
End If
Else
PopMessage("请先新增出库单回后新增明细","提示",PopIconEnum.Infomation,2)
Return
End If
Tables("疫苗药品出库单.疫苗药品出库表").AddNew.Save()
新增行出现错误提示
.NET Framework 版本:2.0.50727.8789
Foxtable 版本:2018.7.28.1
错误所在事件:表,疫苗药品出库表,DataColChanging
详细错误信息:
调用的目标发生了异常。
从字符串“记账”到类型“Boolean”的转换无效。
输入字符串的格式不正确。
.NET Framework 版本:2.0.50727.8789
Foxtable 版本:2018.7.28.1
错误所在事件:表,疫苗药品出库表,DataColChanging
详细错误信息:
调用的目标发生了异常。
没有为 类型“Date” 和 类型“Boolean” 定义运算符“=”。
3、有的列删除后新增没得问题了,但是有的新增也不行。
4、老师,服务器出现这个提示是什么意思?
.NET Framework 版本:2.0.50727.5420
Foxtable 版本:2018.7.9.1
错误所在事件:
详细错误信息:
'CHECKSUM' 不是可以识别的 BACKUP 选项。
5、老师,怎么我的表重定向后,有的逻辑列变成了整数?
6、老师,有的逻辑列选中,取消就出现
.NET Framework 版本:2.0.50727.8789
Foxtable 版本:2018.7.28.1
错误所在事件:
详细错误信息:
将 varchar 值 'True' 转换为数据类型为 bit 的列时发生语法错误。