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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 列数据代码录入ip

共有2376人关注过本帖树形打印复制链接主题：列数据代码录入ip

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/21 22:16:00 [显示全部帖子]

1、在afteropenproject加入代码

Dim IPAdress As System.Net.IPAddress

Dim HostName As String

HostName = System.Net.Dns.GetHostName '获得本机的机器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP

vars("IP") = HostName

vars("名称") = IPAdress.ToString

2、DataRowAdding事件

e.DataRow("机器IP") = vars("IP")

e.DataRow("机器名称") = vars("名称")

主题：列数据代码录入ip