- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何把获取的信息加入另一表中（已经解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43315)
-- 发布时间：2013/12/4 11:27:00
-- [求助]如何把获取的信息加入另一表中（已经解决）
表事件为beforesavedatarow。要实现的功能是：
预约日期发生改变——出现对话框，提示是否短信通知，选择“是”——将预约日期发生改变行中的“联系电话”和由很多列链接的信息保存在表“短信内容”的对应列中。代码如下，提示有问题。问题窗口如图所示。看看代码的问题在哪？谢谢！
此主题相关图片如下：360软件小助手截图20131204112602.jpg
If e.DataRow.OriginalValue("预约日期") <> e.DataRow("预约日期") Then
Dim Result As DialogResult
Result = MessageBox.Show("预约日期已经更改,是否需要短信通知患者家属?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim dr As DataRow
Dim txt As String=""
Dim txt1 As String =""
txt +=dr("联系信息_联系人姓名") & ",您小孩" & dr("姓名")& "因患" & dr("疾病诊断")& "于" & dr("登记日期")& "在我院" & dr("预约科室") & "登记住院,原住院时间" & e.DataRow.originalValue("预约日期") & "因" & dr("原因")& "现更改为" & dr("预约日期")& "请收到短信后直接短信回复或电话联系予以确认,联系电话:****"
txt1=dr("联系信息_移动电话")
With Tables("短信内容")
If .Current Is Nothing Then
.AddNew()
.cols("联系号码")=txt1
.cols("短信内容")=txt
End If
End With
End If
End If
[此贴子已经被作者于2013-12-4 12:46:26编辑过]
-- 发布时间：2013/12/4 11:29:00
--
If .Current Is Nothing Then
.AddNew()
.Current ("联系号码")=txt1
.Current ("短信内容")=txt
End If
-- 发布时间：2013/12/4 11:34:00
--
改了，还是有问题。提示如下：
此主题相关图片如下：360软件小助手截图20131204113326.jpg
-- 发布时间：2013/12/4 11:35:00
--
没注意看,你要添加到新增的行是吧
If .Current Is Nothing Then dim r as row = .AddNew() r("联系号码")=txt1 r("短信内容")=txt End If |
-- 发布时间：2013/12/4 11:42:00
--
对，要把获得信息加到新增的行。但仍然有错，提示如3楼。还有什么不对。
-- 发布时间：2013/12/4 11:47:00
--
不可能,上例子. 你没有用我的代码吧.
-- 发布时间：2013/12/4 11:54:00
--
好的。看看嘛！谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日历查询.table |
-- 发布时间：2013/12/4 11:56:00
--
让上个例子,你整个项目扔上来来,却不说问题再哪里,要操作哪里重新问题,哪里的代码有问题,让别人如何下手帮你.
-- 发布时间：2013/12/4 11:59:00
--
sorry. 呵呵。就是在表“基本情况”中的beforesavedatarow事件中。更改预约日期后发生的事件。
[此贴子已经被作者于2013-12-4 11:59:14编辑过]
-- 发布时间：2013/12/4 12:03:00
--
Dim dr As DataRow
Dim txt As String=""
Dim txt1 As String =""
txt +=dr("联系信息_联系人姓名") & ",您小孩" & dr("姓名")& "因患" & dr("疾病诊断")& "于" & dr("登记日期")& "在我院" & dr("预约科室") & "登记住院,原住院时间" & e.DataRow.originalValue("预约日期") & "因" & dr("原因")& "现更改为" & dr("预约日期")& "请收到短信后直接短信回复或电话联系予以确认,联系电话:****"
你DR都没赋值,是空的,你却使用它, 这是怎么回事?