|
|
发表于 2011-8-22 00:17:00
|
显示全部楼层
假设已经有了一个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 |
|
置顶卡
