vb6代码转换为vb.net如何 [英] vb6 code convert to vb.net how

问题描述

此代码如何在vb.net上编写

 如果 DFrm =   Frm_OutMaintenance 然后 
 WhereCondition =  其中（TBL_MAINTENANCE.RMNO<> 0）和（TBL_MAINTENANCE.RMFLG = 0）和（（TBL_MAINTENANCE.MTYPE = 1）或（TBL_MAINTENANCE.MTYPE为空））和 
 ElseIf DFrm =   Frm_InMaintenance 然后 
 WhereCondition =  其中（TBL_MAINTENANCE.RMNO<> 0）和（TBL_MAINTENANCE.RMFLG = 0）和（（TBL_MAINTENANCE.MTYPE = 0）或（TBL_MAINTENANCE.MTYPE为空））和 
 其他 
 WhereCondition =  其中（TBL_MAINTENANCE.RMNO<> 0）和 
 结束 如果 

解决方案

没有什么可以转换的。

我只能猜测这是一个返回 WhereCondition 作为查询字符串的一部分。



按方式：没有简单的方法将VB6代码转换为CB.NET。

请阅读：将vb6代码转换为vb.net [ ^ ]

this code how to write on vb.net

If DFrm = "Frm_OutMaintenance" Then
             WhereCondition = " Where (TBL_MAINTENANCE.RMNO <> 0) And (TBL_MAINTENANCE.RMFLG = 0) And ((TBL_MAINTENANCE.MTYPE = 1) OR (TBL_MAINTENANCE.MTYPE IS NULL)) And "
         ElseIf DFrm = "Frm_InMaintenance" Then
             WhereCondition = " Where (TBL_MAINTENANCE.RMNO <> 0) And (TBL_MAINTENANCE.RMFLG = 0) And ((TBL_MAINTENANCE.MTYPE = 0) OR (TBL_MAINTENANCE.MTYPE IS NULL)) And "
         Else
             WhereCondition = " Where (TBL_MAINTENANCE.RMNO <> 0 ) And "
         End If

解决方案

There is nothing to convert.
I can only guess that is a code which returns WhereCondition as part of query-string.

By The Way: there is no simple way to convert VB6 code to CB.NET.
Please, read it: converting vb6 code to vb.net[^]

这篇关于vb6代码转换为vb.net如何的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！