- 积分
- 10755
- 明经币
- 个
- 注册时间
- 2005-6-8
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2011-8-22 00:17:54
|
显示全部楼层
假设已经有了一个mConnection对象 ---仅提供一下思路
Dim str As String = ED.GetString("请输入直线的ID:").StringResult
Dim DT As New DataTable, adp As New SqlDataAdapter("select tab1.orderid ,tab1.pointx,tab1.pointy,tab1.pointz,tab2.pointx,tab2.pointy,tab2.pointz where tab1.orderid = tab2.orderid and tab1.orderid = '" & str & "'", mConnection)
adp.Fill(DT)
If DT.Rows.Count > 0 Then
Dim objLine As New Line3d, objrow As DataRow = DT.Rows(0)
objLine.Set(New Point3d(objrow(1), objrow(2), objrow(3)), New Point3d(objrow(4), objrow(5), objrow(6)))
此处将新建的Line对象加入到图中(自己去实现吧)
Else
ED.WriteMessage("无找到此ID")
End If |
|