[求助]代码冲突 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码冲突

共有2202人关注过本帖树形打印复制链接主题：[求助]代码冲突

fox-BT

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

加好友

发短信

等级：童狐帖子：242 积分：2040 威望：0 精华：0 注册：2016/1/6 15:08:00

[求助]代码冲突 发帖心情

Post By：2016/8/30 17:44:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:案例.rar

网页修改了数据，无法录入到狐表，求指点！！！

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/30 18:05:00 [只看该作者]

接收和发送定义的符号都不一致

狐表

Dim k As String = e.message

If k.startswith("%") AndAlso k.endswith("%")

Dim l() As String = k.Split("%")

Dim b2 As DataRow = Tables("表A").Current.DataRow

Dim c2 As String = "%" & b2 ("第一列") & "$" & b2 ("第二列")& "$" & b2 ("第三列")

c2 &= "%"

e.ReturnValue = c2

End If

If k.startswith("#") AndAlso k.endswith("#")

Dim l() As String = k.Split("#")

Tables("表A").current("第一列") = l(1)

Tables("表A").current("第二列") = l(2)

Tables("表A").current("第三列") = l(3)

End If

asp网页

Protected Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click

UDPCommunication("#|" & Text1.Value & "#" & Text2.Value & "#" & Text3.Value & "#" & Text4.Value & "#")

End Sub

如果对aspnet没有感觉的话，还是等狐表下个版本吧，可以自动生成网页

fox-BT

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

加好友

发短信

等级：童狐帖子：242 积分：2040 威望：0 精华：0 注册：2016/1/6 15:08:00

Post By：2016/8/30 18:44:00 [只看该作者]

此主题相关图片如下：`cfymh`nyny3`)thqt3h17y.png

您好，我直接使用您发来的代码，结果出现这个

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47452 积分：251108 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/8/31 7:21:00 [只看该作者]

dim s() as string = c(0).split("%")

if s.length < 3 then

messagebox.show("长度不对呀，你看看内容是：" &　c(0))

else

text1.value = s(0)

text2.value = s(1)
text3.value = s(2)

end if

下一主题 >> << 上一主题

主题：[求助]代码冲突