[求助]如何把获取的信息加入另一表中（已经解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何把获取的信息加入另一表中（已经解决）

共有4428人关注过本帖树形打印复制链接主题：[求助]如何把获取的信息加入另一表中（已经解决）

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/4 11:29:00 [显示全部帖子]

If .Current Is Nothing Then

.AddNew()

.Current ("联系号码")=txt1

.Current ("短信内容")=txt

End If

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/4 11:35:00 [显示全部帖子]

没注意看,你要添加到新增的行是吧

If .Current Is Nothing Then

dim r as row = .AddNew()

r("联系号码")=txt1

r("短信内容")=txt

End If

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/4 11:47:00 [显示全部帖子]

不可能,上例子. 你没有用我的代码吧.

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/4 11:56:00 [显示全部帖子]

让上个例子,你整个项目扔上来来,却不说问题再哪里,要操作哪里重新问题,哪里的代码有问题,让别人如何下手帮你.

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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都没赋值,是空的,你却使用它, 这是怎么回事?